Inference at * 1 
Iof proof for Lemma add cancel in le:



1. a : 
2. b : 
3. n : 
4. (a+n)  (b+n)
  a  b 

latex

 by ((Assert (a+n+(-n))  (b+n+(-n))) 
CollapseTHENM ((Auto_aux (first_nat 1:n) ((first_nat 2:n
C),(first_nat 3:n)) (first_tok :t) inil_term))) 

latex

C1: .....assertion..... NILNIL

C1:   (a+n+(-n))  (b+n+(-n))
C.

Definitions

t  T, False, P  Q, A, A  B